home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / seq edit boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  50 lines
  1. 5 poke53280,.:poke53281,.
  2. 6 ifa=1 then print"";:goto 11
  3. 10 print"[147][146]";
  4. 11 print"[160]           [158]l o a d s t a r"
  5. 20 print"[160]           [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  6. 30 print"[160]"
  7. 40 print"[160]     [156]presents - s e q - e d i t"
  8. 50 print
  9. 60 print
  10. 70 print"     [155]0 's e q - e d i t ' 98 :3c"
  11. 80 print"     12   'seq edit.ml'      prg"
  12. 90 print"     12   'research paper'   seq"
  13. 100 print"     7    'file #101011'     seq"
  14. 110 print"     12   'file #2020'       seq"
  15. 120 print"     23   'mikes junk'       seq"
  16. 130 print"     20   'jims report'      seq"
  17. 140 print"     17   'data table'       seq"
  18. 150 print"     999  'big file!'        seq"
  19. 160 print"     4167 blocks free."
  20. 170 print
  21. 180 print
  22. 190 print"         [154]written by scott reid"
  23. 200 print
  24. 210 print
  25. 213 print
  26. 220 print"            [159]copyright 1987"
  27. 250 print"";
  28. 260 ifa=0thena=1:load"seq edit.ml",8,1
  29. 270 print"       [129] press space to continue"
  30. 280 geta$:ifa$<>" "then280
  31. 400 print"[147]             s e q  e d i t
  32. 401 [153]"print#             tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  33. 405 print"          r[152])[154] run seq-edit
  34. 406 [153]"          qprint#)cont quit to loadstar
  35. 409 print"[154]       enter selection : [152](r[153] or q[152])
  36. 410 [161]a$:[139]a$[178]"" [167] 410
  37. 411 [139]a$[178]"r" [167] 420
  38. 415 [139]a$[178]"q" [167] 430
  39. 417 [137] 410
  40. 420 [158]49152
  41. 430 [153]"on  list     do you wish to quit? (y/n)    "
  42. 431 [161]a$:[139]a$[178]""[167]431
  43. 432 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]500
  44. 435 [139]a$[178]"n"[176]a$[178]"(NULL)"[167]400
  45. 440 [137] 431
  46. 500 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  47. 510 [139]er[179][177]63 [167] [153]"load":[128]
  48. 520 [147]"hello connect",8,1
  49. 530 [128]
  50.